home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2001-12-30 | 1.6 KB | 54 lines |
- "FILE"="Xteq Systems X-Setup Plugin 5.0"
- "TYPE"="6"
- "COUNT"="1"
- "UIPATH"="Program Options\Microsoft Office\MS Office XP\Outlook"
- "NAME"="Minimize to Tray"
- "VERSION"="1.14"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Display Outlook minimized in the tray"
- "DESCRIPTION 1"="Normally, when Outlook is minimized, it minimizes to the taskbar."
- "DESCRIPTION 2"="If this option is activated, Outlook minimizes to the tray (the area where the clock is located, bottom-right)."
- "DESCRIPTION 3"="For users that always use Outlook this can save some clutter in the taskbar."
- "AUTHOR"="Xteq Systems"
- "CONTACTURL"="http://www.xteq.com/"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All rights reserved."
- "COMMENT 1"="Tweak detected by WinGUIDES - http://www.winguides.com/registry/display.php/955/"
-
-
-
- 'Declaration of some constants
- sV1="HKCU\Software\Microsoft\Office\10.0\Outlook\Preferences\MinToTray" 'DW: 1
- sPCheck="HKCU\Software\Microsoft\Office\10.0\Outlook\"
-
- Sub Plugin_Initialize
- if RegPathExists(sPCheck) then
- i=RegReadValue(sV1)
- if i=1 then SetUIElement 1,true
- else
- Disable()
- end if
- END SUB
-
- 'Called when the Plugin should validate the Data the user has entered
- SUB Plugin_CheckData(ElementIndex)
- END SUB
-
- 'Called when the Plugin should apply the changes
- SUB Plugin_Apply(ElementIndex,ElementSubIndex)
- b=GetUIElement(1)
- if b=true then
- Call RegWriteValue(sV1,"1",2)
- else
- if RegValueExists(sV1) then
- Call RegDeleteValue(sV1)
- end if
- end if
-
-
-
- END SUB
-
- 'Called when the Plugin is about to be removed from memory
- SUB Plugin_Terminate
- END SUB
-